--[[
    编码: WMS-07-04
    名称: 常量-查询面板-查询
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： Query

    功能:
        根据查询面板里的输入，组成SQL的查询条件
    更改记录:
        V6.0 HAN 2023/9/6  -- lua.Error/lua.Debug 函数变化          
--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function Query ( strLuaDEID ) 
    local nRet, strRetInfo
    local parameter = {}
    local attrs
    -- 获取查询面板里的输入属性
    nRet, attrs = m3.GetSysInputParameter( strLuaDEID ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "m3.GetSysInputParameter 失败! "..attrs ) end 
    parameter = m3.KeyValueAttrsToObjAttr( attrs )
    lua.Debug( strLuaDEID, debug.getinfo(1), "parameter", lua.table2str(parameter) )

    local group = lua.Get_StrAttrValue( parameter.S_GROUP )         -- 分组名称
    local name = lua.Get_StrAttrValue( parameter.S_NAME )           -- 常量名称
    local is_sys = lua.Get_StrAttrValue( parameter.IsSys )          -- 是否是系统
    local strSQL = ''

    if ( is_sys == "系统" ) then
        is_sys = 'Y'
    else
        is_sys = 'N'
    end

    if (group ~= '') then
        strSQL = "S_GROUP = '"..group.."'"
    end
    if (name ~= '' ) then
        if ( strSQL ~= '' ) then strSQL = strSQL.." AND " end
        strSQL = strSQL.."S_NAME like '%%"..name.."%%'"
    end
    if (is_sys ~= '' ) then
        if ( strSQL ~= '' ) then strSQL = strSQL.." AND " end
        strSQL = strSQL.."C_SYS = '"..is_sys.."'"
    end

    if (strSQL == '') then return end
    -- 设置查询面板
    local setAttr = '{"condition":"'..strSQL..'","order":"S_NAME"}'
    local strAction = '[{"action_type":"set_query_condition","value":'..setAttr..'}]'
    nRet, strRetInfo = mobox.setAction( strLuaDEID, strAction  )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end 

end